(ns qwiz.tests.test)


(defn make-init-line [size]
  (vec (take size (repeatedly #(assoc {} :type "#")))))

(defn make-init-world [sx, sy] (vec (take sy (repeatedly #(make-init-line sx)))))

(defn print-line [line] (str (reduce str (map #(% :type) line)) "\r\n"))
(defn print-world [world] (println (reduce str (map #(print-line %) world))))

(def w (make-init-world 10 10))
;(print-world w)

(defn direction [] (- (Math/round (rand 1)) (Math/round (rand 1))))

(defn gnaw-wall[x, y, world]
  (assoc ((world x) y) :type " "))

(println (map ))
;;(print-world (gnaw-wall 1 1 w))

(defn generate-map [sx, sy]

  )

(def rob {
           :name "r1"

           :feelings {
                       :vision {
                                 :angle 10
                                 :distance 5
                                 :types [:natural ]

                                 :what-i-see #(+ 2 3)
                                 }

                       }
           })


;;(println ((rob :what-i-see )))